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-TITLE RUNCVTUIC = CONVERT UIC TO BINARY 
« IDENT y0s~000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
;* ALL RIGHTS RESERVED. 
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* 
¥ 
® 
* 
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:* THIS SOFTWARE IS FURNISHED eee A LICENSE AND MAY BE USED AND COPIED 
* 
® 
* 
® 
* 
+ 
* 
« 
* 
* 
* 
x 
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;* ONLY ‘ SUCH LICENSE AND WITH THE 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
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* 
* 
& 
TRANSFERRED. * 
* 
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* 
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« 
* 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: RUN-DETACHED CLI UTILITY 
ABSTRACT: 
THIS MODULE CONVERTS A UIC TO BINARY GROUP AND MEMBER CODES. 
ENVIRONMENT: USER MODE 
AUTHOR: C. A. MONIA , CREATION DATE: 15-AUG-1977 
MODIFIED BY: 
| 


v03-001 LMP0139 L. Mark Pilant 18-Aug-1983 12:06 
Add support for alphanumeric vics. 
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UIC TO BINARY 15“SEP=1984 23:41:49 YAX/VMS M 
ONS 2 8Ep=1986 8 LSRe 


04-000 DECLA 


9 46 ~SBTTL DECLARATIONS 

$008 

00 MACROS: 

900 ; BUILD DISPATCH TABLE FOR CASE INSTRUCTION 
000 : 

9000 4 «MACRO CASE,SRC,DISPLIST, TYPE=W,BASE=#0,NMODE=S°M#, 2START, 2MAX 
000 23 CASE' TYPE §RC BASE , NMODE '<<MAX=START>/2>=1 
000 § START: 

999 .IRP  —- EP, <DISPLIST> 
g ;WORD EP=START 
000 9 ENDR 

0000 60 MAX: 

0000 3=« 61 .ENDM 

0000 6¢ 

$090 oi : DEFINE STATE TABLE ENTRY 

0000 65 ; 

0000 40 66 

0000 67 .MACRO STATE NAME 

itd 8 BeEET TRANTBL,RD,NOWRT 

0000 70 $$T=. 

0000 7 .PSECT STATETBL,RD,NOWRT 

0000 7? “IF NB <NAME> 

9009 73 NAME: 

000 7% .ENDC 

0000 75 $$s=. 

0000s? .WORD $$T-TRSIZE 

0000 «7 “RESTORE 

0000 «= 78 SENDM 

0000 «= 79 

0000 ««s«ago gx 

9000 81 > DEFINE TRANSITION TABLE ENTRY 
000 He 

00 84 .MACRO TRAN, TOKEN, ACTION, NEXTSTATE 
000 5 SAV 
000 6 *PSECT TRANTBL,RD,NOWRT 
9909 “IF B TOKEN 
000 8 “BYTE =1 
9 “RESTORE 
SMEXIT 
8 33 Ate TOKEN 
0 98 Pie 
0 94 “IF NB <ACTION> 
9 95 “WORD ACTION 
0 % TIFF 
9 “woRD 0 
98 ENDC 
9 -1F NB <NEXTSTATE> 
0 100 -IF IDN SEND, <NEXTSTATE> 
0 101 *wORD 0 
00 102 TIFF 
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vou=000 DECLARATIONS 2732 $8e 5 717:36 CCLIUTL.SRCJRUNCVTUIC.MAR; 1 of 
3 -WORD NEXTSTATE 
4 -ENDC 
5 oIFF 
WORD $$S+2 
ENDC 
- RESTORE 
~ENOM 


: DEFINE DATA STRUCTURE 


-MACRO $SDSECT 
-PSECT $ABS$,ABS 
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> OWN STORAGE: 


; STATE TABLE AND TRANSITION LIST FOR UIC STRING 
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0 110 
mt 
i 
14 
15 
000 16 
000 11 -ENDM 
000 118 
000 119; 
0 0 9 ; EQUATED SYMBOLS: 
0000 : : DEFINE TOKEN VALUES 
a3 at 
0000000E 0000 5 CHRS$K_EOL=14 : END OF LINE 
00000000 9000 : CHRSK~PERCE=13 + PERCENT SIGN 
itd 8; 
0000 9 : DEFINE ARGUMENT LIST OFFSETS 
8208 ; 
0000 : SDSECT 
0000 
00000000 0000 134 $$$=. 
0000 35 
00000004 0000 6 .BLKL 1 
00000008 0004 37 STRNG: .BLKL 1 : ADDRESS OF STRING DESCRIPTOR 
0000000C¢ 0008 38 VALUE: .BLKL 1 : ADDRESS TO RECEIVE VALUE 
000C 40; 
000¢ 41 + DEFINE TRANSITION TABLE OFFSETS 
00000000 Goo ‘§ *=$$$ 
00000001 0000 145 TOKEN: .BLKB 1 : VALUE OF TOKEN 
00000003 00 46 ACTION: .BLKW 1 t ADDRESS OF ACTION ROUTINE 
00000005 00 47 NEXTSTATE: .BLKW 1 : NEXT STAT 
0 4 TRSIZE: > SIZE OF TRANSITION TABLE ENTRY 

3 ; STATE BEGIN ; 

3 TRAN CHRSK_LBRAKT,LBRCKT > LEFT BRACKET 

Oe TRAN : 

5 5 STATE Al 3 
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RUN_CVTUIC = CONVERT UIC TO BINARY 


THIS PROCEDURE IS CALLED TO PARSE A UI 
GROUP AND OWNER STRINGS TO BINARY. 


INPUTS: 
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voes000 DECLARATIONS 4-SEP-1984 33:4}i% CLIUTL.SRCJRUNCVTUIC.MAR;1 (1). 
0 TRAN CHRSK_ALPHA,ALPHAN,A1  ; ALPHABETIC | 
TRAN CHRSK“NUMERIC,ALPHAN,A1 ; R 
TRAN HRSK-DOT : DECIMAL POINT 
é TRAN  CHRSK"PERCE,ALPHAN,Al : PERCENT SIGN 
4 TRAN = CHRSK-COMMA ; COMMA 
65 TRAN  CHRSKRBRAKT, ,A3 ; 
TRAN 3 
3 STATE A2 ; 
0 TRAN CHRSK_ALPHA,ALPHAN,A2 _ ; ALPHABETIC 
90 TRAN CHRSK-NUMERIC,ALPHAN,A2 ; NUMERIC 
0 TRAN  CHRSK~DOT ,ALPHAN, A > DECIMAL POINT 
00 TRAN CHRSK-PERCE ALPHAN,A2 : PERCENT SIGN 
TRAN CHRSKRBRAKT : 
00 TRAN : 
0005 STATE a3 ; 
0005 TRAN CHRSK_EOL,, SEND ; TERMINATE ON END OF LINE 
0005 TRAN ; 
00000000 -PSECT RUN_CVTUIC_DAT RD,WRT,BYTE 
00000008 0000 GROUP: .BLKL 2 ; STRING DESCRIPTOR FOR GROUP 
0000000C 000 GR -BLKL oY : G 
00001 0 OWNER: .BLKL ¢ : STRING DESCRIPTOR FOR OWNER 
000018 001 OWNNUM: <BLKL ; OWNER R 
0000001C 001 STRNGAD:.BLKL 1 ; ADDRESS OF CURRENT STRING DESCRIPTOR 
0000002 901 VIC: .BLKL 1 ; UIC ADDRESS 
0 
0 


C SPECIFICATION AND CONVERT THE 


AP POINTS TO AN ARGUMENT LIST IN THE FOLLOWING FORMAT 


OUTPUTS: 


: COUNT 
; ADDRESS OF UIC STRING DESCRIPTOR 
; ADDRESS OF LONGWORD TO RECEIVE UIC 


RO LBS = UIC SUCCESFULLY CONVERTED 
RO LBC = SYNTAX ERROR IN UIC SPECIFICATION 


.PSECT RUN_CVTUIC NOWRT 
RUN_CVTUIC:: 

-WORD “MCR1.R2,R3,R4,R5.R6,R7> ; 

€LRQ = w*GROUP 

CLRQ —- WOWNER 

MOVQ = @STRNG(AP) RS 

MOVAB W*BEGIN,R? 


SA 
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yous000 DECLARATIONS arse TSBs SEFbi9S HAUTE Sects fer Ce mansy Om chy 
00A1 3 1 17 BSBW =- RUN_PARS : PARSE STRING 
1¢ 50 f 1 18 BLBC RO. TOS : IF ty SYNTAX ERROR 
51 O00C'CF 1 1 MOVAB W°OUNER RI + GET OWNER STRING ADDRESS 
Me 1 0 TSTw = (R17) + ANY OWNER STRING? 
1 1 BEQL © 408 : NO, ASSUME ALPHA UIC 
p4 ; CLRL RR : YES, CLEAR WORD INDEX 
1 BS8B 40s«208 : CONVERT GROUP TO NUMERIC 
oft 5 3 : 4 BLBC =—._« RO, 408 : TRY FOR APLHA UIC CONVERSION 
51 0000°CF 5 MOVAB wW*GROUP,R1 : GET ADDRESS OF GROUP STRING 
5 0 $ INCL = RS. : INCREMENT WORD INDEX 
a5 BSBB 2208 t CONVERT OWNER TO NUMERIC 
2550 € 8 pies BLBC ~=—_—«aRO,, 408 : TRY FOR APLHA UIC CONVERSION 
04 0 RET F 
Oe 583 
9 6 $ : CONVERT GROUP OR OWNER TO BINARY 
00 4 5 
036 6 20S: ; 
7E OO1C'CE 9E 0036 MOVAB W*UIC,-(SP) + PUSH ADDRESS TO RECEIVE VALUE 
pet be: 8 MOVL  (SP),R2 : COPY AD 
— 51 »D E 9 MOVL R1,-(SP) + PUSH ADDRESS OF STRING DESCRIPTOR 
00000000' EF 08 FB 0041 240 CALLS #21 1BSCVT_OCTBIN : CONVERT TO BINARY 
0€ 50 £9 0048 241 BLBC =—._«aRO| 30 : IF LBC ERROR 
504 0048 4g CLRL t ASSUME VALUE TOO LARGE 
02 A2 BS 0040 24 TSTW (R2) + VALUE OK? 
12 005 44 BNEQ 0$ : IF NEQ 
08 BC45 62 BO 005 45 MOVW  (R2),@VALUE(AP)CRSJ : RETURN VALUE 
50 D6 005 46 INCL RO : SET SUCCESS 
059 247 308: ; 
05 0059 248 RSB ; 
Bk 38s 
GOsA 3 : SINCE THE OCTAL CONVERSION FAILED, TRY TO CONVERT AS AN ALPH RIC UIC 
005A 253° 
D4 005A 54 40$: CLRL  -(SP) : TRY FOR GROUP TRANSLATION 
00000008°EF  9F 8 55 PUSHAB GRPNUM 
00000000°EF 9F 006 56 PUSHAB GROUP 
00000000'EF 03 FB 006 57 CALLS #5, SYSSASCTOID 
44 50 £9 of +} BLBC = RO, 708 ; XFER IF IN ERROR, ALL ATTEMPTS FAILED 
Q0000000C'EF 8 : 59 TSTW NER : ANY OWNER FIELD f0 TRANSLATE? 
a? 7 60 BNEQ 0$ + XFER IF NOT 
08 BC 0000008"EF oD 7A 261 MOVL § GRPNUM,@VALUE (AP) > ELSE GROUP IS REALLY FULL UIC 
Fa 2 6¢ BRB 60$ : GO FINISH UP 
E 04 0 4 263 50$: CLRL (SP) t TRY FOR OWNER TRANSLATION 
00000014"EF  9F 6 266 PUSHAB OWNNUM 
0000000C"EF  9F 65 PUSHAB OWNER 
00000000'EF 03 FB 66 CALLS @ + SYSSASCTOID 
0 € 9 6 BLBC =—_-«RO, 70 ; XFER IF IN ERROR, ALL ATTEMPTS FAILED 
0 04 009C 268 CLRL : ASSUME GROUPS DON'T MATCH 
00000016"EF  O000000A'EF 81 3 $9 CMP RPNUM+2 , OWNNUM+ 2 : DO THEY REALLY? 
1 A 0 BNEQ : XFER IF NOT, TIS IN ERROR 
08 BC 00009014 "EF D AB 71 MOVL OWNNUM VALUE (AP) + ELSE RETURN THE CONVERTED UIC 
50. 01 p fe 608: MOVL #1,R : NOTE SUCC 
4 6 273 70$: RET : RETURN TO CALLER WITH STATUS 
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ro v04-00 Page ¢ 
CLIUTL.SRCJRUNCVTUIC.MAR;1 1) 


7 275 .SBTTL RUN_PARS = PARSE A STRING 
7 i, 
Bf i: ; RUN_PARS = PARSE A STRING 
7 0 : THIS ROUTINE IS ENTERED VIA A BSB OR JSB TO PERFORM TABLE DRIVEN PARSING. 
7 1 ; IT REQUIRES A SET OF STATE AND CORRESPONDING TRANSITION TABLES THAT DEFINE 
g § 3 THE SYNTAX OF THE STRING TO BE PARSED. 
087 4 ; THE SET OF TOKENS RECOGNIZED IS LIMITED TO THE FOLLOWING: 
087 6 : ALPHABETIC 
7 : NUMERIC 
087 8 ; DOT (.) 
087 : SLASH (/) 
087 0; SEMICOLON (;) 
087 291: LEFT BRACKET (C) 
087 3% : RIGHT BRACKET (J) 
0B7 293: COLON (:) 
0B7 294: BLANK 
0B7 295: DOLLAR SIGN ($) 
0B7 % : UNDERSCORE (_) 
0B7 297: ERCENT (%) 
0087 298: END-OF -STRING 
bon? $00: 
9087 91 3 INPUTS: 
9087 08 : RS, R6 = STRING DESCRIPTOR 
087 04 ; R7? = ADDRESS OF STATE TABLES 
0087 06 : OUTPUTS: 
9087 08 ; RO LBS = STRING IS SYNTACTICALLY CORRECT 
087 10 ; RO LBC = SYNTAX ERROR 
087 19 : RS = COUNT OF REMAINING UNPROCESSED CHARACTERS 
0087 «313: R6 = ADDRESS OF CHARACTER IN ERROR 
087 14; 
SBF aia 
087 13 RUN_PARS: : 3 
7 18 INCW RS : BIAS STRING COUNT 
9 19 pee DECL 6 : BIAS STRING POINTER 
1 “ s MOVZWL_ ss (R7),R7 $ POINT TO TRANSITION TABLE FOR STATE 
6 : ; MOVL #CHREK EOL RO ; ASSUME END OF STRING 
C DECW OR + AT END? 
3 00¢ 4 BEGQL 4 ©=_-308 : IF EQL vES 
é ¢ 5 INCL : INCREMENT STRING POINTER 
¢ 6 MOVL  #$#CHRSK_PERCE,RO ; ASSUME PERCENT SIGN 
CA CMPB R6) #7 A/%/ : PERCENT SIGN? 
CD i BEQL + IF EQL ves 
CF = BSBU «© CHRSTSTCHR + DETERMINE CHARACTER TYPE 
Bs ? "ss AaDDW = #TRSIZE,R7 + POINT TO NEXT TABLE ENTRY 


50 


~ oun peie« U c. r 


a5 Centar? AO 
te 
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, a 
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; ILLEGAL CHARACTER 


Ah FM DAA SIMO OM 


RH HH HH HMMMMMMmmMmoCoCOC 


Mn & & 


3c 38: in $8 HEE TUTE. SRESRuncurutc.mar;1 2% 3) 


T END OF TRANSITION TABLE? 
tt s¥°3 yese UL ILLEGAL 

I Ned 

IF EQL NONE 

CALL ACTION ROUTINE 


ET TO -—. rare 
Q HAVE NEXT STATE 
uUCCES 


So 
al 
~ 
wy 


SET FAILURE 


H 12 | 
UIE PARSE ACTION ROUTINES "RSE=19B6 88:97:58 LCCHUTE.SRESRuncvturc.mans1 °F" fy 


ON 
‘ «SBTTL UIC PARSE ACTION ROUTINES 
; ACCUMULATE AN ALPHANUMERIC STRING 
DOT : 
0018 "DF v6 wc @w*STRNGAD t INCREMENT STRING COUNT 


De i Di Bi Di i Ri Be Bie Bs Ds De Bs Bn Be Be 
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sad OOOC*CF 9E MOVAB = W* OWNER .W*STRNGAD ; BEGIN OWNER STRING DESCRIPTOR 
10°CF O01 A6 3 ae 1(R6) ,W°OWNER+4 ; ohne START OF STRING 


74 
o ; LEFT BRACKET 


78 LBRCKT: > 
0018'CF Q000°CF 9E ; MOVAB = W®GROUP .W*STRNGAD ; POINT TO GROUP STRING DESCRIPTOR 
0004°CF 01 A6 3 » nose 1(R6) ,W*GROUP+4 ; POINT TO START OF STRING 
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RUNCVTUIC 
Symbol table 


C RBRAK 
CHRSTSTCHR 
COMMA 

DOT 

ExIT 

GROUP 
GRPNUM 
ILLCHR 


LORCKT 
LIBSCVT_OCTBIN 
WEXTSTATE 


PSECT name 


. ABS 
$aBs$ 


TRANTBL 
STATETBL 
RUN_CVTUIC_DAT 
RUN” CVTUIC 
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! Psect synopsis ! 


+ ec wre mr meena esecoat 


Allocation 


PRP Pn Pn Pn Pm 
o— 
NM ONO 


PSECT No. 
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Attributes 
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LCL 

LCL NOS EXE Dd 
LCL NOSHR EXE RD 
LCL NOSHR He RD 
LCL NOSHR XE RD 
LCL NOSHR EXE RD 


NOWRT NOVEC BYTE 


NOWRT NOVEC BYTE 


age 
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' Performance indicators ! 


FOS Eee owas n ose Beware ses + 


ymbol table 
Psect synopsis output 
Cross-reference output 
Assembler run totals 27 


Ihe working set Limit was 900 pages. 
8279 bytes (17 pages) of virtual memory were used to buffer the intermediate seee. 
There were 10 pages of symbol table space allocated to hold 38 non-local and 10 local symbols. 
383 source Lines were read in Pass 1, produc ing 18 object records in Pass 2. 
4 pages of virtual memory were used to define & macros. 


Phase Page faults CPU Time Elapsed Time 
nitialization 1 . m 
ommand processing § ‘ 704.7 

sees 1 cebt : ° :07. 
yabol table sor ° :00. 

Pass ; ° 703.4 

e output 4 ° 700.4 
34 


$oocesasroaseoces ee2eneecocnococe= > 


! Macro library statistics ! 


} canteen etait, Tae tmamtpttnnte tt ae | 


Macro Library name Macros defined 
SDUA cL IUN 42h tyth MLB; 1 “0 
“$SSSRRUAEE: Fah Iva gba 
55SDUA28: SYSL IB3STARLET. On iB: 2 0 
Tovais (all libraries) 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RUNCVTUIC/OBJ=OBJ$:RUNCVTUIC MSRC$:RUNCVTUIC/UPDATE=(ENHS:RUNCVTUIC) ¢EXECMLS/LIB*LIB$:CLIUTL/LIB 
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